1 REM *** U.S. HISTORY MODULE *** 2 REM PUT LISTS IN HISTORICAL ORDER 3 REM (IN DIRECT MODE, TYPE 'POKE 53265,PEEK(53265)OR 64' TO MAKE SHIFTED 4 REM CHARACTERS SHOW UP WHEN TYPING THEM IN 10 FF$="U.S.HISTORY" 11 FF$="@0:Q "+LEFT$(FF$,14)+",S,W" 12 OPEN 2,8,2,FF$ 15 Z$=CHR$(13) 17 POKE 53265,PEEK(53265)OR 64 19 REM * HOW MANY QUIZZES? 20 NQ=8:PRINT#2,NQ 30 FOR I=1 TO NQ:READ TN:PRINT#2,TN 32 FOR J=0 TO 3:READ A:PRINT#2,A:POKE 53281+J,A:NEXT:POKE 53280,PEEK(53281) 34 FOR J=0 TO 3:READ FC$(J):PRINT#2,FC$(J):NEXT 36 READ A$,B$:A$=FC$(3)+A$:B$=FC$(0)+B$:PRINT#2,A$Z$B$:PRINT"[147]"A$:PRINT B$ 38 READ A$,B$:A$=FC$(1)+A$:B$=FC$(1)+B$:PRINT#2,A$Z$B$:PRINT A$B$ 40 FOR J=1 TO TN 42 READ A$,B$:C$="":A$=" "+A$:FOR K=1 TO LEN(B$):A=ASC(MID$(B$,K,1)) 44 IF A<32 OR A>95 THEN A=160:GOTO 47 45 IF A>63 THEN A=A+32:GOTO 47 46 A=A+128 47 C$=C$+CHR$(A):NEXT:B$="[160]"+C$+"[146]" 49 PRINT#2,A$Z$B$:PRINT ""FC$(2)A$"[146]"FC$(3)B$:NEXT:NEXT 50 CLOSE 2:PRINT "";:END 99 REM ** QUIZ #1 100 DATA 13,6,8,5,7,"","[158]","[158]","" 101 REM * QUIZ TITLE 102 DATA "[160][177][179][160][211][212][193][212][197][211][160][210][193][212][201][198][217][160][212][200][197][160][206][197][215][160][195][207][206][211][212][201][212][213][212][201][207][206][160][146]" 103 REM * FORMAT LINE 104 DATA " PUT IN ORDER^FROM THE FIRST TO RATIFY " 105 REM * COLUMN HEADERS 106 DATA "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 108 DATA "[160][196][193][212][197][160][210][193][212][201][198][201][197][196][160][160][160][160]" 109 REM ** QUIZ ITEMS 110 DATA "DELAWARE ","7 DECEMBER 1787 " 111 DATA "PENNSYLVANIA ","12 DECEMBER 1787 " 112 DATA "NEW JERSEY ","18 DECEMBER 1787 " 113 DATA "GEORGIA ","2 JANUARY 1788 " 114 DATA "CONNECTICUT ","9 JANUARY 1788 " 115 DATA "MASSACHUSETTS ","6 FEBRUARY 1788 " 116 DATA "MARYLAND ","28 APRIL 1788 " 117 DATA "SOUTH CAROLINA ","23 MAY 1788 " 118 DATA "NEW HAMPSHIRE ","21 JUNE 1788 " 119 DATA "VIRGINIA ","26 JUNE 1788 " 120 DATA "NEW YORK ","26 JULY 1788 " 121 DATA "NORTH CAROLINA ","21 NOVEMBER 1789 " 122 DATA "RHODE ISLAND ","29 MAY 1790 " 199 REM ** QUIZ #2 200 DATA 20,14,7,4,8,"","[144]","[144]","" 201 REM * QUIZ TITLE 202 DATA "[160][160][212][200][197][160][198][201][210][211][212][160][178][176][160][208][210][197][211][201][196][197][206][212][211][160][207][198][160][212][200][197][160][213][174][211][174][160][160][146]" 203 REM * FORMAT LINE 204 DATA " THOSE INAUGURATED FROM 1789 TO 1881 " 205 REM * HEADERS 206 DATA "[160][208][210][197][211][201][196][197][206][212][167][211][160][206][193][205][197][160][160][160][160]" 208 DATA "[160][160][163][255][217][197][193][210][255][160][160][198][193][195][212][211][160][160]" 209 REM ** QUIZ ITEMS IN CORRECT ORDER 210 DATA "GEORGE WASHINGTON "," 1^1789 F2" 211 DATA "JOHN ADAMS "," 2^1797 VP F1" 212 DATA "THOMAS JEFFERSON "," 3^1801 VP D2" 213 DATA "JAMES MADISON "," 4^1809 D2" 214 DATA "JAMES MONROE "," 5^1817 D2" 215 DATA "JOHN QUINCY ADAMS "," 6^1825 D1" 216 DATA "ANDREW JACKSON "," 7^1829 D2" 217 DATA "MARTIN VAN BUREN "," 8^1837 VP D1" 218 DATA "WILLIAM H.HARRISON "," 9^1841 DIO W1" 219 DATA "JOHN TYLER ","10^1841 VP+W0" 220 DATA "JAMES K.POLK ","11^1845 D1" 221 DATA "ZACHARY TAYLOR ","12^1849 DIO W1" 222 DATA "MILLARD FILLMORE ","13^1850 VP+W0" 223 DATA "FRANKLIN PIERCE ","14^1853 D1" 224 DATA "JAMES BUCHANAN ","15^1857 D1" 225 DATA "ABRAHAM LINCOLN ","16^1861 KIO R2" 226 DATA "ANDREW JOHNSON ","17^1865 VP+D0" 227 DATA "ULYSSES S.GRANT ","18^1869 R2" 228 DATA "RUTHERFORD B.HAYES ","19^1877 R1" 229 DATA "JAMES A.GARFIELD ","20^1881 KIO R1" 299 REM ** QUIZ #3 300 DATA 19,2,4,7,1,"","[144]","[144]","" 301 REM * QUIZ TITLE 302 DATA "[160][160][160][212][200][197][160][178][176][160][205][207][211][212][160][210][197][195][197][206][212][160][213][174][211][174][208][210][197][211][201][196][197][206][212][211][160][160][160][146]" 303 REM * FORMAT LINE 304 DATA " THOSE INAUGURATED FROM 1881 TO 1981 " 305 REM * HEADERS 306 DATA "[160][208][210][197][211][201][196][197][206][212][167][211][160][206][193][205][197][160][160][160][160]" 308 DATA "[160][160][163][255][217][197][193][210][255][160][160][198][193][195][212][211][160][160]" 309 REM ** QUIZ ITEMS IN CORRECT ORDER 310 DATA "CHESTER A.ARTHUR ","21^1881 VP+R0" 311 DATA "GROVER CLEVELAND ","22/24^1885/93 D2" 312 DATA "BENJAMIN HARRISON ","23^1889 R1" 313 DATA "WILLIAM MCKINLEY ","25^1897 KIO R2" 314 DATA "THEODORE ROOSEVELT ","26^1901 VP+R1" 315 DATA "WILLIAM HOWARD TAFT ","27^1909 R1" 316 DATA "WOODROW WILSON ","28^1913 D2" 317 DATA "WARREN G.HARDING ","29^1921 DIO R1" 318 DATA "CALVIN COOLIDGE ","30^1923 VP+R1" 319 DATA "HERBERT HOOVER ","31^1929 R1" 320 DATA "FRANKLIN D.ROOSEVELT","32^1933 DIO D4" 321 DATA "HARRY S TRUMAN ","33^1945 VP+D1" 322 DATA "DWIGHT D.EISENHOWER ","34^1953 R2" 323 DATA "JOHN F.KENNEDY ","35^1961 KIO D1" 324 DATA "LYNDON B.JOHNSON ","36^1963 VP+D1" 325 DATA "RICHARD M.NIXON ","37^1969 RFO VP R2" 326 DATA "GERALD R.FORD ","38^1973 VP+R0" 327 DATA "JIMMY CARTER ","39^1977 D1" 328 DATA "RONALD REAGAN ","40^1981 R2" 399 REM ** QUIZ #4 400 DATA 11,3,4,5,6,"","","[144]","[158]" 401 REM * QUIZ TITLE 402 DATA "[160][160][160][160][212][200][197][160][177][177][160][211][212][193][212][197][211][160][207][198][160][212][200][197][160][195][207][206][198][197][196][197][210][193][195][217][160][160][160][146]" 403 REM * FORMAT LINE 404 DATA " IN THE ORDER OF THEIR SECESSION " 405 REM * HEADERS 406 DATA "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 408 DATA "[160][196][193][212][197][160][211][197][195][197][196][197][196][160][160][160][160][160]" 409 REM ** QUIZ ITEMS IN CORRECT ORDER 410 DATA "SOUTH CAROLINA ","20 DECEMBER 1860 " 411 DATA "MISSISSIPPI ","9 JANUARY 1861 " 412 DATA "FLORIDA ","10 JANUARY 1861 " 413 DATA "ALABAMA ","11 JANUARY 1861 " 414 DATA "GEORGIA ","19 JANUARY 1861 " 415 DATA "LOUISIANA ","26 JANUARY 1861 " 416 DATA "TEXAS ","2 MARCH 1861 " 417 DATA "VIRGINIA ","17 APRIL 1861 " 418 DATA "ARKANSAS ","6 MAY 1861 " 419 DATA "NORTH CAROLINA ","20 MAY 1861 " 420 DATA "TENNESSEE ","8 JUNE 1861 " 499 REM ** QUIZ #5 500 DATA 20,6,14,1,8,"","[144]","","" 501 REM * QUIZ TITLE 502 DATA "[160][160][201][205][208][207][210][212][193][206][212][160][194][193][212][212][204][197][211][160][207][198][160][212][200][197][160][195][201][214][201][204][160][215][193][210][160][160][160][146]" 503 REM * FORMAT LINE 504 DATA " FROM THE FIRST TO THE LAST " 505 REM * HEADERS 506 DATA "[160][194][193][212][212][204][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 508 DATA "[160][196][193][212][197][255][211][212][193][212][197][160][160][160][160][160][160][160]" 509 REM ** QUIZ ITEMS IN CORRECT ORDER 510 DATA "FORT SUMTER ","12 APR.61 S.CARO." 511 DATA "1 MANASSAS/BULL RUN ","21 JUL.61 VIRGIN." 512 DATA "FT.DONELSON ","16 FEB.62 TENNES." 513 DATA "MONITOR & MERRIMAC ","9 MAR.62 VIRGINI." 514 DATA "SHILOH ","6-7 APR.62 TENNE." 515 DATA "THE SEVEN DAYS ","26 JUN-2 JUL. VA." 516 DATA "2 MANASSAS/BULL RUN ","30 AUG.62 VIRGIN." 517 DATA "ANTIETAM ","17 SEP.62 MARYLA." 518 DATA "FREDERICKSBURG ","13 DEC.62 VIRGIN." 519 DATA "CHANCELLORSVILLE ","2-4 MAY 63 VIRGI." 520 DATA "SIEGE OF VICKSBURG ","22MAY-4JUL.MISSI." 521 DATA "GETTYSBURG ","1-3 JUL.63 PENNS." 522 DATA "CHICKAMAUGA ","19-20 SEP.TENNES." 523 DATA "CHATTANOOGA ","23-25 NOV.TENNES." 524 DATA "WILDERNESS ","5-6 MAY 64 VIRGI." 525 DATA "SPOTSYLVANIA ","8-12 MAY 64 VIRG." 526 DATA "COLD HARBOR ","3 JUN.64 VIRGINI." 527 DATA "PETERSBURG SIEGE ","15JUN-2APR.65 VA." 528 DATA "MARCH ACROSS GEORGIA","16 NOV-22 DEC.64 " 529 DATA "APPOMATOX ","8 APR.65 VIRGINI." 599 REM ** QUIZ #6 600 DATA 20,12,11,13,10,"[158]","","","[149]" 601 REM * QUIZ TITLE 602 DATA "[160][160][160][212][200][197][160][197][213][210][207][208][197][193][206][160][211][197][212][212][204][197][205][197][206][212][160][207][198][160][193][205][197][210][201][195][193][160][160][146]" 603 REM * FORMAT LINE 604 DATA " ARRANGE STATES IN ORDER OF SETTLEMENT " 605 REM * HEADERS 606 DATA "[211][212][193][212][197][160][160][170][189][206][207][212][160][197][206][199][204][201][211][200][160]" 608 DATA "[160][217][197][193][210][255][211][197][212][212][204][197][196][160][194][217][160][160]" 609 REM ** QUIZ ITEMS IN CORRECT ORDER 610 DATA "FLORIDA * ","8 SEP.1565^SPAIN " 611 DATA "VIRGINIA ","24 MAY 1607^ENGL." 612 DATA "NEW MEXICO * ","1609^SPAIN (MEX.)" 613 DATA "NEW YORK * ","1612-1614^HOLLAND" 614 DATA "MASSACHUSETTS ","21 DEC.1620^ENGL." 615 DATA "MARYLAND ","27 FEB.1634^ENGL." 616 DATA "RHODE ISLAND ","JUN.1636^MASSACH." 617 DATA "DELAWARE * ","31DEC.1637^SWEDEN" 618 DATA "NORTH CAROLINA ","1653^ENGLAND " 619 DATA "WISCONSIN * ","1660^FRANCE " 620 DATA "VERMONT * ","1666^FRANCE " 621 DATA "MICHIGAN * ","1668^FRANCE " 622 DATA "SOUTH CAROLINA ","APR.1670^ENGLAND " 623 DATA "ARKANSAS * ","1686^FRANCE " 624 DATA "MISSISSIPPI * ","1699^FRANCE " 625 DATA "GEORGIA ","12 FEB.1733^ENGL." 626 DATA "CALIFORNIA * ","1769^SPAIN (MEX.)" 627 DATA "ARIZONA * ","1776^SPAIN (MEX.)" 628 DATA "OREGON * ","12 APR.1811^USA " 629 DATA "UTAH * ","24 JUL.1847^USA " 699 REM ** QUIZ #7 700 DATA 20,3,9,1,5,"[144]","[158]","[149]","[144]" 701 REM * QUIZ TITLE 702 DATA "[160][160][160][160][160][160][160][160][160][160][160][160][193][205][197][210][201][195][193][206][160][215][193][210][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]" 703 REM * FORMAT LINE 704 DATA " EARLY COLONIAL WARS TO MODERN WARS " 705 REM * HEADERS 706 DATA "[160][215][193][210][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 708 DATA "[160][217][197][193][210][211][255][207][208][208][207][206][197][206][212][160][160][160]" 709 REM ** QUIZ ITEMS IN CORRECT ORDER 710 DATA "KING PHILIP'S WAR ","1675-76^INDIANS " 711 DATA "KING WILLIAM'S WAR ","1690-97^FRANCE " 712 DATA "QUEEN ANNE'S WAR ","1702-13^FR.& SPA." 713 DATA "TUSCARORA INDIAN WAR","1711-13^INDIANS " 714 DATA "WAR OF JENKIN'S EAR ","1739-42^SPAIN " 715 DATA "KING GEORGE'S WAR ","1743-48^FRANCE " 716 DATA "FRENCH & INDIAN WAR ","1754-63^FR.& IND." 717 DATA "REVOLUTIONARY WAR ","1775-83^ENGLAND " 718 DATA "TRIPOLITAN WAR ","1802-4^TRIPOLI " 719 DATA "WAR/1812 & CREEK WAR","1812-15^ENGL/INDI" 720 DATA "SEMINOLE INDIAN WARS","1817-18^35-43 " 721 DATA "MEXICAN WAR ","1846-48^MEXICO " 722 DATA "CIVIL WAR ","1861-65^U.S.SOUTH" 723 DATA "SIOUX WARS ","1866-69,74-77 " 724 DATA "NEZ PERCE WAR ","1877^INDIANS " 725 DATA "SPANISH-AMERICAN WAR","1898^SPAIN " 726 DATA "WORLD WAR I ","1917-19^GERMANY " 727 DATA "WORLD WAR II ","41-45^GERM.& JAP." 728 DATA "KOREAN WAR ","1950-53^N.KOREA " 729 DATA "VIETNAM WAR ","1963-72^N.VIETNAM" 799 REM ** QUIZ #8 800 DATA 20,5,13,2,10,"","[144]","","[144]" 801 REM * QUIZ TITLE 802 DATA "[160][160][160][178][176][160][204][207][211][201][206][199][160][208][210][197][211][201][196][197][206][212][201][193][204][160][195][193][206][196][201][196][193][212][197][211][160][160][160][146]" 803 REM * FORMAT LINE 804 DATA " PUT IN ORDER OF ELECTIONS THEY LOST " 805 REM * HEADERS 806 DATA "[160][204][207][211][197][210][160][160][160][170][189][201][206][195][213][205][194][197][206][212][160]" 808 DATA "[160][217][197][193][210][255][215][201][206][206][197][210][160][160][160][160][160][160]" 809 REM ** QUIZ ITEMS IN CORRECT ORDER 810 DATA "GROVER CLEVELAND *D","1888^B.HARRISON " 811 DATA "BENJAMIN HARRISON *R","1892^G.CLEVELAND " 812 DATA "WILLIAM J.BRYAN (3)D","1896^1900^1908 " 813 DATA "WILLIAM H.TAFT *R","1912^WILS.& ROOS." 814 DATA "CHARLES E.HUGHES R","1916^W.WILSON *" 815 DATA "JAMES M.COX D","1920^HARDING " 816 DATA "ROBERT LAFOLLETTE P","1924^COOL*& DAVIS" 817 DATA "ALFRED E.SMITH D","1928^H.HOOVER " 818 DATA "HERBERT HOOVER *R","1932^F.ROOSEVELT " 819 DATA "ALFRED M.LANDON R","1936^F.ROOSEVELT*" 820 DATA "WENDELL WILLKIE R","1940^F.ROOSEVELT*" 821 DATA "THOMAS E.DEWEY (2)R","1944-48^ROO*/TRU*" 822 DATA "ADLAI STEVENSON (2)D","1952-6^EISENHOWER" 823 DATA "RICHARD M.NIXON +R","1960^J.F.KENNEDY " 824 DATA "BARRY GOLDWATER R","1964^L.B.JOHNSON*" 825 DATA "HUBERT H.HUMPHREY D","1968^R.M.NIXON " 826 DATA "GEORGE MCGOVERN D","1972^R.M.NIXON *" 827 DATA "GERALD R.FORD *R","1976^JIMMY CARTER" 828 DATA "JIMMY CARTER *D","1980^R.REAGAN " 829 DATA "WALTER F.MONDALE D","1980^R.REAGAN *"